(facemenu-add-new-face): Fix comma in backquote.

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 70047bfa366675b1e4397c473f75992e3b5d01f6..ccf47151e290ac44e8a67004547519a2345168cd 100644 (file)
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -621,7 +621,7 @@ Automatically called when a new face is created."
                 `(lambda ()
                    ,docstring
                    (interactive)
-                   (facemenu-set-face (quote (, face)))))
+                   (facemenu-set-face (quote ,face))))
           (define-key 'facemenu-keymap key (cons name function))
           (define-key menu key (cons name function)))
          ((facemenu-iterate ; check if equivalent face is already in the menu